home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 162
/
162.d81
/
b.text charter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
10KB
|
282 lines
10 poke55,0:poke56,160:clr:rem top$a000
20 dv=peek(186):ifdv<8thendv=8
30 print"[147]":s$=" ":dimln$(42)
40 poke53280,0:poke53281,0
50 poke53272,23:poke198,0
100 print"[147][153] [193]nother [205]ighty [204]oadstar [198]ont [195]harter"
110 print" [208]rogram by [204]ee [206]ovak in 1997"
120 print"[150] active keys for next screen"
130 print" while small portion of chart showing "
140 print" [159][198]-[203]eys[154] [193]lter [209]uadrants"
150 print" cycles through variations"
160 print" [159][208][154] [211]end to [208]rinter #4"
170 print" [159][209][154] [209]uit to [204][207][193][196][211][212][193][210]"
180 print" [159]_[154] [209]uit to [194][193][211][201][195]"
185 print"[159] [208]rogram sends [208][197][212][193][211][195][201][201] strings plus:"
190 print" -chr$(27,65,7,13) for [154][197]pson printers"
200 print" -chr$(8,13,15) for [154][195]ommodore printers"
220 print" -chr$(8,13,15,27,60) for the [154][205][208][211]-1200"
230 print" [158][208]ress a [203]ey!"
240 print"[158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
250 print"[157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][189]";
260 print"[221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
270 geta$:ifa$=""then270
280 print"[147]"
290 a=1:b=1:c=1:d=1:rem quadrant values
292 gosub1000:gosub2000:gosub2040:gosub2140:gosub2360:gosub2580
300 :
301 rem show chart
302 :
310 print"";
320 foro=1to18:printleft$(ln$(o),19),right$(ln$(o),19):next
900 geta$:ifa$="p"ora$="q"ora$="_"then4000
905 z=0
910 ifa$="[133]"thena=a+1:z=1:ifa=4thena=1
915 ifa$="[137]"thena=a-1:z=1:ifa=0thena=3
920 ifa$="[134]"thenb=b+1:z=2:ifb=6thenb=1
925 ifa$="[138]"thenb=b-1:z=2:ifb=0thenb=5
930 ifa$="[135]"thenc=c+1:z=3:ifc=6thenc=1
935 ifa$="[139]"thenc=c-1:z=3:ifc=0thenc=5
940 ifa$="[136]"thend=d+1:z=4:ifd=6thend=1
945 ifa$="[140]"thend=d-1:z=4:ifd=0thend=5
950 onzgosub2040,2140,2360,2580
960 onzgosub1990,2110,2270,2490
970 ifzthen300
980 goto900
999 print"":poke198,0:end
1000 t1$ ="[176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178]"
1010 t2$ ="[192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
1020 b1$(1)="[173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177]"
1030 b2$(1)="[192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
1040 b1$(2)="[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177]"
1050 b2$(2)="[192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
1060 b1$(3)="[173][192][177][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192]"
1070 b2$(3)="[192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][189]"
1100 x1$(1)="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
1110 x2$(1)=" [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
1120 x1$(2)="[221]@[221]a[221]b[221]c[221]d[221]e[221]f[221]g[221]h[221]i[221]j[221]k[221]l[221]m[221]n[221]o[221]"
1130 x2$(2)="p[221]q[221]r[221]s[221]t[221]u[221]v[221]w[221]x[221]y[221]z[221][[221]\[221]][221]^[221]_[221]"
1140 x1$(3)="[221] [221]![221]'[221]#[221]$[221]%[221]&[221]'[221]([221])[221]*[221]+[221],[221]-[221].[221]/[221]"
1150 x2$(3)="0[221]1[221]2[221]3[221]4[221]5[221]6[221]7[221]8[221]9[221]:[221];[221]<[221]=[221]>[221]?[221]"
1160 x1$(4)="[221][192][221][193][221][194][221][195][221][196][221][197][221][198][221][199][221][200][221][201][221][202][221][203][221][204][221][205][221][206][221][207][221]"
1170 x2$(4)="[208][221][209][221][210][221][211][221][212][221][213][221][214][221][215][221][216][221][217][221][218][221][219][221] [221][221][221] [221] [221]"
1180 x1$(5)="[221] [221]a[221]b[221]c[221]d[221]e[221]f[221]g[221]h[221]i[221]j[221]k[221]l[221]m[221]n[221]o[221]"
1190 x2$(5)="p[221]q[221]r[221]s[221]t[221]u[221]v[221]w[221]x[221]y[221]z[221] [221] [221] [221] [221] [221]"
1200 x1$(6)="[221] [221]![221]'[221]#[221]$[221]%[221]&[221]'[221]([221])[221]*[221]+[221],[221]-[221].[221]/[221]"
1210 x2$(6)="0[221]1[221]2[221]3[221]4[221]5[221]6[221]7[221]8[221]9[221]:[221] [221] [221] [221] [221] [221]"
1220 x1$(7)="[221] [221][193][221][194][221][195][221][196][221][197][221][198][221][199][221][200][221][201][221][202][221][203][221][204][221][205][221][206][221][207][221]"
1230 x2$(7)="[208][221][209][221][210][221][211][221][212][221][213][221][214][221][215][221][216][221][217][221][218][221] [221] [221] [221] [221] [221]"
1240 x1$(8)="[221] [221] [221] [221] [221] [221] [221] [221] [221]"
1250 x2$(8)=" [221] [221] [221] [221] [221] [221] [221] [221]"
1260 x1$(9)="[221] [221] [221] [221] [221] [221] [221] "
1270 x2$(9)=" [221] [221] [221] [221] [221] [221]"
1280 x1$(0)="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][171][221] [221][173][221][174][221] [221]"
1290 x2$(0)="[176][221][177][221][178][221][179][221] [221] [221] [221] [221] [221] [221] [221] [221] [221][189][221] [221] [221]"
1300 y1$(1)="[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219]"
1310 y2$(1)="[192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
1320 y1$(2)="[171][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219]"
1330 y2$(2)="[192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][179]"
1340 y1$(3)="[171][192][219][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177]"
1350 y2$(3)="[192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][179]"
1400 y1$(4)="[171][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219]"
1410 y2$(4)="[192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][179]"
1420 y1$(5)="[171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219]"
1430 y2$(5)="[192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
1440 y1$(6)="[171][192][178][192][219][192][192][192][177][192][178][192][177][192][192][192][219][192][192][192][177][192][178][192][177][192]